home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / mac / 00000000 / Pages.dir / 00002_Script_2 < prev    next >
Text File  |  1995-11-09  |  426b  |  24 lines
  1. on showPagesText
  2.   
  3.   global grabbedText
  4.   
  5.   tell the stage
  6.     grabTextPages
  7.   end tell
  8.   
  9.   put grabbedText into field 9
  10.   
  11. end showPagesText
  12. ---------------------------------
  13. on copyTextToClip
  14.   
  15.   if the selection = EMPTY then
  16.     alert "Please select some text"
  17.   else
  18.     put the selection into field "Clipboard Field"
  19.     copyToClipBoard cast "Clipboard Field"
  20.   end if
  21.   
  22.   
  23. end copyTextToClip
  24.